5 POKE53280,1:POKE53281,1:POKE646,2
10 DM=INT(FRE(0)/60)+10:IFDM>250THENDM=250
20 LL=22:IFPEEK(44)=8THENLL=40:DM=250
40 P1=LL/2-6:P2=P1+LL+3:DN$="":PRINTCHR$(14):A=1
50 DIMQ$(DM,2):DIMRN%(DM)
70 PRINT"[147]"TAB(P1)"[209][213][197][211][212][201][207][206][211]!":PRINTTAB(P1)"[157][157][157][198]ILE EDITOR PROGRAM"
75 GOSUB1100
100 PRINT"[147]"TAB(P1)"*** [205][197][206][213][146] ***"
105 PRINTTAB(P2)"[215][146]RITE
108 [139]N[177]0[167][153][163]P2)"VALWAITDIT":[153][163]P2)"(null)WAITAVE
110 PRINTTAB(P2)"[204][146]OAD"
120 GOSUB1010
122 IFX$="W"THENGOSUB200:GOTO100
124 IFX$="L"THENGOSUB600:GOTO100
125 IFN=0THEN120
126 IFX$="E"THENGOSUB300:GOTO100
128 IFX$="S"THENGOSUB500:GOTO100
130 GOTO120
199 REM WRITE SUBROUTINE
200 IFN=DMTHENPRINT"[147][198]ILE FULL":GOSUB1100:RETURN
205 FM=PEEK(51)-PEEK(49)+256*(PEEK(52)-PEEK(50)):IFFM<300THENFM=FRE(0)
210 IFFM<300THENPRINT"[147]"FM"BYTES LEFT":PRINT"[208]RESS ANY KEY":GOSUB1010
220 PRINT"[147]"DN$"[197]NTER MENU[146] WHEN DONE":PRINT""TAB(P1)"[157]*** [215][210][201][212][197][146] ***
230 N[178]N[170]1:[153]"(null)UESTION #"N:[133]"";Q$(N,1)
240 [139]Q$(N,1)[178]"MENU"[167]Q$(N,1)[178]"":N[178]N[171]1:[142]
250 [153]"ATNNSWER               ":[133]"CMDCMDCMD";Q$(N,2)
260 [137]200
299 [143] EDIT SUBROUTINE
300 [141]390
310 [133]"(null)HAT NUMBER";R$:R[178][197](R$):[139]R[179]1[176]R[177]N[167]300
320 [139]R[177]N[167][142]
325 [141]390:[153]"#"R"":[153]Q$(R,1)
330 [153]""Q$(R,2):[153][163]P1)"CMDCMDCMDCMDCMD(null)WAITEXT LENWAITHANGE STR$WAITROP (null)WAITENU
340 GOSUB1010
342 IFX$="N"THENR=R+1:GOTO320
344 IFX$="M"THENRETURN
346 IFX$="D"THEN450
348 IFX$="C"THEN400
360 GOTO340
390 PRINT"[147]"TAB(P1)"*** [197][196][201][212][146] ***":RETURN
399 REM CHANGE SUBROUTINE
400 PRINT"[145][145]":FORI=1TOLL:PRINT"[160]";:NEXT:PRINT"[145][145][145][145]REVISED QUESTION[146]
410 [133]"CMDCMD";Q$(R,1):[153]"REVISED ANSWERWAIT":[133]"CMDCMD";Q$(R,2):[137]320
449 [143] DROP SUBROUTINE
450 [153]"ONON":[129]I[178]1[164]LL:[153]" ";:[130]:[153]"STR$ROP":[141]1300:[139]X$[179][177]"Y"[167]320
455 [139]R[178]N[167]470
460 [129]I[178]R[164]N[171]1:Q$(I,1)[178]Q$(I[170]1,1):Q$(I,2)[178]Q$(I[170]1,2):[130]:[153]"VALNTRY DELETED"
470 N[178]N[171]1:[141]1200:[137]320
499 [143] SAVE SUBROUTINE
500 [153]"LOAD(null)ATN(null)VAL":[141]1300:[139]X$[179][177]"Y"[167][142]
505 [153]"LOAD"[163]P1)"*** (null)ATN(null)VALWAIT ***
510 PRINT"[206]AME OF FILE":INPUTNF$:GOSUB1000
520 OPEN2,8,2,"0:"+NF$+",S,W":PRINT#2,N
530 FORI=1TON:PRINT#2,Q$(I,1);CHR$(13);Q$(I,2):NEXT
540 CLOSE2:PRINT"[198]ILE "NF$:PRINT"SAVED":GOSUB1100:RETURN
599 REM LOAD SUBROUTINE
600 IFN=0THENGOSUB690:GOTO650
605 PRINT"[147][204][207][193][196]":GOSUB1300:IFX$<>"Y"THENRETURN
608 GOSUB690
610 PRINT"[212]HERE IS CURRENTLY A  FILE IN MEMORY.":PRINT"[196]O YOU WANT TO:
620 [153][163]P1)"(null)WAITEPLACE FILE":[153][163]P1)"(null)WAITERGE FILES
630 GOSUB1010
632 IFX$="R"THENGOSUB690:PRINT"[210]EPLACE FILE":N=1:GOTO650
634 IFX$="M"THENGOSUB690:PRINT"[205]ERGE FILES":GOTO650
636 GOTO630
650 PRINT"[206]AME OF FILE":INPUTNF$:GOSUB1000:OPEN2,8,2,"0:"+NF$+",S,R":INPUT#2,W
660 N=N+1:INPUT#2,Q$(N,1),Q$(N,2):IFST=0THEN660
670 CLOSE2:PRINT"[198]ILE "NF$:PRINT"NOW IN MEMORY WITH":PRINTN" ENTRIES
680 [153][163]P1)"(null)RESS ANY KEYWAIT":[141]1010:[142]
690 [153]"LOAD"[163]P1)"*** (null)(null)ATNSTR$WAIT ***":[142]
999 [143] MISCELLANEOUS SUBROUTINES
1000 [153]"RIGHT$NSERT QUESTION FILE DISK. (null)RESS ANY KEYWHEN READY."
1010 [161]X$:[139]X$[178]""[167]1010
1020 [142]
1100 [129]T[178]1[164]1500:[130]:[142]
1200 [129]T[178]1[164]500:[130]:[142]
1300 [153]"ATNRE YOU SURE? ((null)/(null))":[137]1010